home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1986 July / Ahoy_Magazine_86-07_1986_Double_L.d64 / sound challenge (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  87 lines
  1. 0 print"[147]":poke53280,7:poke53281,0:poke646,1
  2. 1 rem commodares problem #27-2:
  3. 2 rem   sound challenge
  4. 5 rem
  5. 6 goto 200
  6. 9 rem - "froggy" by will ludwigsen
  7. 10 d=16:a=54272:poke a+24,15:poke a+6,0
  8. 11 poke a+1,100:poke a+5,2
  9. 12 if(peek(162)and d)=d then poke a+4,33
  10. 13 poke a+4,0:gosub 290 :goto 12
  11. 18 rem
  12. 19 rem - "key clicks" by ron weiner
  13. 20 for i=0 to 15:poke 54272+i,0:next
  14. 21 print"[147]press keys; press [return] to end
  15. 22 [161] a$:[139] a$[178]"" [167] 22
  16. 23 [139] a$[178][199](13) [167] 200
  17. 24 [151] 54296,15:[151] 54296,0
  18. 25 [153] a$; : [137] 22
  19. 28 [143]
  20. 29 [143] - "waves" by ernest barkman
  21. 30 s[178]54272:y[178][181]([187](1)[172]3)[170]1:[139] y[178]1 [167]x[178]131
  22. 31 [151] s,x:[151] s[170]1,x:[151] s[170]24,x
  23. 32 [139] y[178]2 [167] x[178]133
  24. 33 [139] y[178]3 [167] x[178]135
  25. 34 [151] s[170]6,x[171]1:[151] s[170]4,x:q[178][181]([187](1)[172]600)[170]500
  26. 35 [129] z[178]1 [164] q:[130]:[141] 290 :[137] 30
  27. 38 [143]
  28. 39 [143] - "gallop" by bob snader
  29. 40 s[178]54296:[129] t[178]0 [164] 10:[129] j[178]5 [164] 15 [169] 5:[151] s,j:[151] s,0
  30. 41 [129] d[178]0 [164] 60:[130]:[130]:[129] d[178]0 [164] 100:[130]:[130]
  31. 42 [141] 290 : [137] 40
  32. 48 [143]
  33. 49 [143] - "scanner" by bob snader
  34. 50 a$[178]"ahoy! commodares":[129] t[178]1 [164] 16
  35. 51 [153] [202](a$,t,1);[199](18);[199](32);[199](146);[199](157);
  36. 52 [151] 54296,15:[151] 54296,0
  37. 53 [129] d[178]0[164]40:[130]:[130]:[153] [199](32)
  38. 54 [153]:[141] 290:[137] 50
  39. 58 [143]
  40. 59 [143] - "buzzer" by bob snader
  41. 60 [129] t[178]0 [164] 20 : [151] 54296,15:[151] 54296,0:[130]:[129] p[178]1 [164] 500:[130]
  42. 61 [141] 290 : [137] 60
  43. 68 [143]
  44. 69 [143] - "air fleet" by jim speers
  45. 70 s[178]54272:[140]:[129] i[178]0 [164] 24:[135] q:[151] i[170]s,q:[130] i
  46. 71 [131] 142,6,0,0,33,15,255,125,6,0,0,33,15,255,88,3,0,0,33,15,255,0,0,240,15
  47. 72 [129] i[178]4 [164] 18 [169] 7:[151] s[170]i,0 :[130]
  48. 73 [129] i[178]4 [164] 18 [169] 7:[151] s[170]i,33:[130]: [141] 290 : [137] 73
  49. 78 [143]
  50. 79 [143] - "computer!" by david palo
  51. 80 s[178]54272:c[178]1024:[151] s[170]6,255:[151] s[170]24,15:[151] s[170]4,17:[153]"load"
  52. 81 [151] s[170]1,256[172][187](8):d[178]32:[139] [187](8)[179].5 [167] d[178]81
  53. 82 [151] s[170]c[170]1000[172][187](8),16[172][187](8):[151] c[170]1000[172][187](8),d:[141] 290:[137] 81
  54. 88 [143]
  55. 89 [143] - "r2-d2" by karen middaugh
  56. 90 s[178]54272:[153]"r2-d2"
  57. 91 r[178][187](1)[172]5[170]10:[129] i[178]1 [164] r
  58. 92 dr[178][181](15[172][187](1)[170]1)
  59. 93 n1[178][181](20[172][187](1)[170]26)
  60. 94 n2[178][181](150[172][187](1)[170]50)
  61. 95 [151] s[170]2,0:[151] s[170]3,0:[151] s[170]5,136
  62. 96 [151] s[170]6,129:[151] s[170]1,n1:[151] s,n2
  63. 97 [151] s[170]4,20:[151] s[170]24,15
  64. 98 [129] t[178]1 [164] dr:[130]:[151] s[170]4,19:[130]
  65. 99 [151] s[170]4,20 : [141] 290 : [137] 91
  66. 108 [143]
  67. 109 [143] "sweeps & leaps" by john prager
  68. 110 [133]"hop value (25-55)";h:[139] h[179]2 [167] 110
  69. 111 s[178]54272:[151] s[170]24,15:a$[178]"560143"
  70. 112 [129] j[178]1 [164] [195](a$):[151] s[170][197]([202](a$,j,1)),69:[130]
  71. 113 x[178]x[170][187](1)[172]h:x[178]x [175] 255
  72. 114 [151] s[170]1,x:[151] s,x:[141] 290:[137] 113
  73. 180 [143]
  74. 190 [143] << menu routine >>
  75. 200 [153]"load   select sounds 0 through 9"
  76. 210 [153]:[153]"<0> - froggy","<1> - key clicks","<2> - waves ",
  77. 220 [153]"<3> - gallop","<4> - scanner","<5> - buzzer",
  78. 230 [153]"<6> - airfleet","<7> - computer!","<8> - r2-d2","<9> - sweeps & leaps"
  79. 240 [153]:[153]"press run/stop when done"
  80. 250 [161] a$:[139] a$[178]"" [167] 250
  81. 260 [153] "load  -press any key to return to menu-"
  82. 270 [145] [197](a$)[170]1 [137] 10,20,30,40,50,60,70,80,90,110
  83. 280 [137] 200
  84. 290 [161] a$:[139] a$[178]"" [167] [142]
  85. 300 [129] i[178]0 [164] 18:[151] 54272[170]i,0:[130]
  86. 310 [137] 200
  87.